home *** CD-ROM | disk | FTP | other *** search
/ Belgian Amiga Club - ADF Collection / BS1 part 47.7z / BS1 part 47 / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].7z / HiSoft BASIC v1.04 (1989)(HiSoft)(Disk 2 of 2)[h Band].adf / music / starmusic3.bas < prev    next >
Encoding:
BASIC Source File  |  1988-12-03  |  708 b   |  39 lines
  1. DIM triangle%(255)
  2. FOR x=0 TO 62
  3.   a=a+2
  4.   triangle%(x)=a
  5. NEXT x
  6. FOR x=63 TO 188
  7.   a=a-2
  8.   triangle%(x)=a
  9. NEXT x
  10. FOR x=189 TO 255
  11.   a=a+2
  12.   triangle%(x)=a
  13. NEXT x
  14. WAVE 0,triangle%
  15. WAVE 1,triangle%
  16. WAVE 2,triangle%
  17. ERASE triangle%
  18.  
  19. SOUND WAIT
  20.  
  21. GetInfo:
  22.   READ freq,dur,vol,chl
  23.   IF freq=-1 THEN Play
  24.   SOUND freq,dur,vol,chl
  25. GOTO GetInfo:
  26.  
  27. Play:
  28.   SOUND RESUME
  29.  
  30. DATA 523.23,15,127,0, 659.28,15,96,1, 784,15,96,2
  31. DATA 784.15,15,222,0, 987.76,15,180,1, 1174.52,15,180,2
  32. DATA 698.48,6,127,0, 0,6,0,1, 0,6,0,2
  33. DATA 659.28,6,127,0, 0,6,0,1, 0,6,0,2
  34. DATA 587.28,6,127,0, 0,6,0,1, 0,6,0,2
  35. DATA 1046.52,15,225,0, 1318.52,15,180,1, 1568,15,180,2
  36. DATA 784,24,180,0, 987.76,24,160,1, 1174.52,24,160,2
  37. DATA -1,-1,-1,-1
  38.   
  39.